j#macro to detect icon drag
SET &H = MOUSEH
SET &V = MOUSEV
IF NOT STILLDOWN THEN EXIT
IF ABS(mouseH-&H) > 3 THEN SKIP 3
IF ABS(MOUSEV-&V) > 3 THEN SKIP 2
SKIP -3
IF CLICKON = 2 THEN SET SPRITEID[5] = 332
IF CLICKON = 3 THEN SET SPRITEID[5] = 341
IF CLICKON = 4 THEN SET SPRITEID[5] = 333
SET SPRITEH[5] = MOUSEH
SET SPRITEV[5] = MOUSEV
WHEN MOUSEUP THEN CALL B88ˇ⁄